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Vv 
a 
¢ RIAA KKAAAAAAAAAAAAAAARARAERAAARAAARAAEAAAAAAAEAAAAAAARAETAAAAAEATAAAARAAARAARARAARAAEAEEE 82; 
ee ® Py 
5 *e COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * bai 
8008 ** DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. * 2; 
aS ee ALL RIGHTS RESERVED. . bai 
** THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 05! 
10 ** ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 05° 
0011 ** INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 03: 
pots ee COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * Q5' 
001 #* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * OS¢ 
Soie vs TRANSFERRED. * Ba 
® 
D016 #* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * bat 
001 ** AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 0s 
sid - CORPORATION. . oa 
gnee ** DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 05¢ 
itd = SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * oat 
® 
$038 ae * 05; 
it RESTA AAAAAAAARAAAAAARAAAAAAAAAAAEAAAAAARAAAEAAEAAEATAAAAEAAAEAAAAAERAARAAAEARAEEAARRERREE | 
0026 
0027 
0028 
34 
0030 
0031 ABSTRACT: This facility is used to create, modify, and optimize 
003s FDL specification files. 
st e4 ENVIRONMENT: NATIVE/USER MODE 
ts4 AUTHOR: Ken F. Henderson Jr. 
0038 CREATION DATE: 27-Mar-1981 
0039 
0 MODIFIED BY: 


v03-08 KFHO008 Ken Henderson 10 Sep 1983 
Support for named UICs 


v03-007 KFHO007 Ken Henderson 8 Aug 1983 
Changes for seperate compilation. 


v03-006 KFHO006 Ken Henderson 30 Jul 1983 
Added never_RU_jouwrnal. 


v03-005 KFHO00S Ken Henderson 14 Apr 1983 
Fixed SHOW PRIMARY_SECTION routine. 
Fixed CHECR_QUOTES routine. 


v03-004 KFHO004 Ken Henderson 22 Nov 1982 
Removed the EDFS_INTSWERR numbers. 
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v03-003 KFHOO03 Ken Henderson 8 Sept 1982 

Added CHECK_QUOTES routine. | 
v03-002 KFHOO02 Ken Henderson 23-Mar-1982 

Reorderred the EDFS_INTSWERR numbers. 
v03-001 KFHOO01 Ken Henderson 17-Mar-1982 


Modified SHOW_CURRENT to fix FT2 QARs 
440,449 
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{ +4 
CHECK _QUOTES == Bracket the output string with quotes. 


This routine scans for quotes that bracket a string-valued output secondary. 
$s 


If they aren't there, it puts on ‘’s,. If there is a '’ in the st 


rien. it puts 

RO If there are both in the string, then it puts on ‘'s (doubling embedded 
s). 

CALLING SEQUENCE: 

CHECK_QUOTES (DESC); 

INPUT PARAMETERS: 


seseseeesseses ig 


DESC = the character string to scan. 


COoOoooe0co 


1 
i 
108 
ier IMPLICIT INPUTS: 
4 APOSTROPHE 
O11 OUTPUT PARAMETERS: 
0118 DESC = the scanned character string 
0115 IMPLICIT OUTPUTS: 
0116 
0117 none 
g1i3 
119 ROUTINES CALLED: 
0120 
0121 none 
01 § 
01 ROUTINE VALUE: 
aise 
0125 none 
Bis8 
3 8 SIGNALS: 
a 9 none 
4 1 SIDE EFFECTS: 
135 
\ none 
0135 -- } 


ed 
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Source Listing 
PROCEDURE CHECK_QUOTES (VAR DESC: DESCRIPTOR); 


VAR 
SCAN_INDEX : INTEGER; 
INDEX : INTEGER; 
QUOTE_FOUND : BOOLEAN; 
APOST_FOUND : BOOLEAN; 
QCHAR : CHAR; 
QUOTES : CHAR; 
BEGIN 
QUOTES := CHR (34); 


{ + 

Non=-null strings are the most interesting. 
IF DESC.DSCSW_LENGTH <> 0 THEN 

BEGIN 


Sane disturb a string that already is enclosed in (")s or ("")s. 
IF NOT ( 

SOESC.DSCSA_POINTER®ETI = APOSTROPHE) 

CDESC .BSCOA_POINTER* CDESC .BSCOU_LENGTH = APOSTROPHE) 


OR 
(DESC.DSCSA_POINTER*C13 = QUOTES) 
(DESC.DSCSA_POINTER*CDESC.DSC$W_LENGTH] = QUOTES) 
) THEN 
BEGIN 


{ + 
First, see if there are any nasty embedded quotes or apostrophes. 


QUOTE_FOUND := FALSE; 
APOST_FOUND := FALSE; 


FOR INDEX := 1 TO DESC.DSC$W_LENGTH DO 
BEGIN 
IF DESC.DSCSA_POINTER*CINDEX) = QUOTES THEN 
QUOTE_FOUND := TRUE; 
IF DESC.DSCSA_POINTER*CINDEX} = APOSTROPHE THEN 
APOST_FOUND := TRUE; 
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{ + 
Just bracket the string with quotes if no quotes are found, 
or if just bracket it with apostrophes if no apostrophes are 


OOOCCCCCoCoCoo 


94 
95 
9 | 
38 
4 ound. 
o IF QUOTE_FOUND THEN 
Be BEGIN 
0 8 IF APOST_FOUND THEN 
0208 BEGIN 
0209 
8 19 SCAN_INDEX := DESC.DSCSW_LENGTH; 
8 \¢ REPEAT 
+ IF DESC.DSCSA_POINTER*CSCAN_INDEX] = QUOTES THEN 
a sec 
S 18 FOR INDEX := DESC.DSC$W_LENGTH DOWNTO SCAN_INDEX DO 
0220 DESC.DSCSA_POINTER*CINDEX+1) 
9 31 := DESC.DSC$A_POINTER*CINDEX); 
st IF DESC.DSCSW_LENGTH < 254 THEN 
03 5 DESC.DSCS$W_LENGTH := DESC.DSC$W_LENGTH + 1; 
35 END; 
9 9 SCAN_INDEX := SCAN_INDEX = 1; 
0331 UNTIL SCAN_INDEX < 1; 
0 ; 0% 
093 QCHAR := QUOTES; ' 
8 a END { IF TRUE APOSYT_FOUND (AND QUOTE_FOUND) -YUK } of 
a est : 
39 BEGIN Oi 
40 0i 
41 QCHAR := APOSTROPHE; 
? END; { IF FALSE APOST_FOUND } 
4s END { IF TRUE QUOTE_FOUND } 
of ELSE { 
4 BEGIN 
50 


| 
| 
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END; 


Source Listing 
QCHAR := QUOTES; 
END; { IF FALSE QUOTE_FOUND } 


{ + 
Shift the string down one char. 
FOR INDEX := DESC.DSCSW_LENGTH DOWNTO 1 DO 


14 iy 
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DISKSVMSMASTER 


DESC.DSCSA_POINTER*CINDEX+1) := DESC.DSCSA_POINTER*CINDEX); 


ate the length and add the quotes. 

C.DSCSW_ 

€-DSCSATPOINTER“EDESC .DSCSW_LENGTH] 
END; { IF NOT (ALREADY QUOTED) } 

END { IF TRUE DESC.DSCS$W_LENGTH <> 0 } 

ELSE 

BEGIN 
STRSTRIM (DESC,EMPTY_STRING); 

END; { IF FALSE DESC.DSCSW_LENGTH <> 0 } 
{ CHECK_QUOTES } 


= QCHAR: 


C$W_LENGTH := DESC.DSCSW_ LENGTH + 2; 
:= QCRAR 
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{ ++ 

SHOW_PRIMARY == Output the text string for the primary. 
This routine outputs the primary keyword. 

CALLING SEQUENCE: 


SHOW_PRIMARY; 

INPUT PARAMETERS: 
| 
| 
| 


none 
i IMPLICIT INPUTS: 
99 DEF CURRENT 
0 st PRIMARY_WIDTH 
0309 OUTPUT PARAMETERS: 
a. 
306 MP T OUTPUTS: 
0307 IMPLICIT OUTPUTS 
308 FDL_DEST 
ts e4 
a9 ROUTINES CALLED: 
aH none 
31 
0313 ROUTINE VALUE: 
316 
319 none 
O88 SIGNALS: 
319 
a3 mo 
03 ¢ SIDE EFFECTS: 
Be The text is shown on the terminal or put in the file. Wherever FDL_DEST points. 
326 -- } 
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V Source Listing -Sep-19 | 

8 PROCEDURE SHOW_PRIMARY; | 
VAR 9 
TEMP_PRI =: - PRIMARY_TYPE; | $ 
5 BEGIN | 4 
5 WITH DEF _CURRENT* DO | sf 
BEGIN 1 
8 | 1 
0339 { + 1 
b , Fetch the primary we're showing. 1 
¢ TEMP_PRI := PRIMARY; i 
03c4 c+ 1 
° 5 Output it, using the correct width. 
037 WRITE (FDL_DEST, TEMP_PRI:PRIMARY_WIDTHCTEMP_PRIJ); \ 
0349 {+ 1 
Beg If_it's one with a PRINUM, put that out too. : 
Ote6 IF TEMP_PRI IN C ANALYSIS_OF_AREA, ANALYSIS_OF_KEY, AREA, KEY ] THEN 1 
0354 WRITE (FDL_DEST," *,PRINUM:NUM_LEN(PRINUM) ); . 
B38 { + 1 
° 44 If_it's one with a string value, put that out too. vl 
0359 IF TEMP_PRI IN C IDENT, TITLE J) THEN ‘ 
0361 BEGIN 1 
0363 1 
ser CHECK_QUOTES (STRING); 
O86¢ IF (STRING.DSC$W_LENGTH > 0) THEN F 
O36? WRITE (FDL_DEST,° * ,STRING.DSCSA_POINTER*: 1 
368 STRING. DSCSW_LENGTH); | 1 
369 1 
i on at 
| 
7 END; { WITH DEF_CURRENT* } 1 
0378 . | 1 
0374 END; { SHOW_PRIMARY } | 1 


SECONDARY_WIDTH 
OUTPUT PARAMETERS: 


OOOCOCCoooocooocooo 
AVIS SSLSARANLSSSIE 


EDF SHOW ib-fe $ep-1984 VAX-11 Pascal V a 
v04-000 Source Listing 50-1984 iF $334 DISKSVMSMAST TER: ‘feDR gk SRCIJEDF SHOW. PAS; 1 179) | 
ee | 
i SHOW SECONDARY == Output a text string for the secondary keyword. | 
0 This routine outputs a secondary keyword. 
B CALLING SEQUENCE: | 
14 SHOW _ SECONDARY; 
INPUT PARAMETERS: 
none 
IMPLICIT INPUTS: 
DEF CURRENT 
none 
87 IMPLICIT OUTPUTS: 
0% FDL_DEST 
04 ROUTINES CALLED: 
0404 
0405 none 
0406 
0407 ROUTINE VALUE: 
0408 
0409 none 
0410 
0411 SIGNALS: 
oet§ 
041 none 
0414 
Bele SIDE EFFECTS: 
tts The secondary keyword is put into the file or onto the terminal. (FDL_DEST) 
0419 -- } 
| 
| 


4 


PEee 2 


tnt 82h OOIIPILIPLIEAPEAAIQ]? 


a a ae a a ak a ak ek a a ak at ad a a ot ot Fh 2 = Sh 2 I I SS I I OP I SP DS SS OS SD <m 
_ 


Sooeeoeeeeo 


—— > ee _ - ——-—__—__ —y 


15 
EDF SHOW 1b-5¢ =1984 05:4 VAX=-11 Pascal V2.4-277 Pa 11 
¥04-000 Source Listing Ror aee Geos reeks aRe tea’ Pete cecreorsnou.pas:1 fa) || 


PROCEDURE SHOW_SECONDARY; 


oo 


4 
° 


VAR | 
TEMP_SEC =: SECONDARY_TYPE; ! 
BEGIN , 
WITH DEF _CURRENT* DO , 
BEGIN , 

| 


{ + 
Fetch the secondary. 
TEMP_SEC := SECONDARY; 


{ + 

Output the secondary if it's a simply structured one. 

IF NOT ( TEMP_SEC IN C SEG_LENGTH, SEG_POSITION, SEG_TYPE ] ) THEN 

BEGIN 
| 


WRITE (FDL_DEST.* | ', TEMP_SEC:SECONDARY_WIDTHLTEMP_SECJ); 
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{ + 
ag out extra tabs to compensate for short secondaries. 


IF ( 
(TEMP_SEC = POSITIONS) 
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5 
: (NOT (QUALIFIER IN C FDLSC_ANYPOS, FOLS$C_NOPOS J)) 
2 ) THEN 
2 WRITE (FOL_DEST,° ") 
2 ELSE IF SECONDARY_WIDTHCTEMP_SEC] < 8 THEN 
5 WRITE (FDOL_DEST,' a 
0461 ELSE IF SECONDARY_WIDTHLTEMP_SEC) < 16 THEN 
bee8 WRITE (FDL_DEST," "); 
Bc6s END | 
oe? ELSE | 
269 c+ 
Beoy more for the complicated secondaries: SEGn_xxx | 
nee BEGIN 
A IF TEMP_SEC = SEG_LENGTH THEN 


WRITE (FOL_DEST,* SEG’, SECNUM:1,"_ LENGTH ‘); 
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78 { + 
79 Now do the same for the SEGn_POSITION secondary. 
1 If TEMP_SEC = SEG_POSITION THEN 
: WRITE (FDL_DEST,' SEG’ ,SECNUM:1,°_POSITION "3 
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uw 


{ + 
Ditto for SEGn_TYPE. 
IF TEMP_SEC = SEG_TYPE THEN 


PELPLLERESEPERERERESES 
oo 


is WRITE (FDOL_DEST,° TYPE "3 
35 { + 
e7 SEG TE will NOT be supported until after version V3B 
95 
38 { WRITE (FDL_DEST,* SEG" ,SECNUM:1,'_TYPE “>; 3) 
Ms END; 
0500 END; { WITH DEF_CURRENT* } 
0501 
0502 
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END;  { SHOW_SECONDARY } 
| 
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{ ++ 
SHOW QUALIFIER == Output a text string for the qualifier keyword. 
This routine outputs the qualifier keyword. 
CALLING SEQUENCE: 
SHOW_QUALIFIER; 
INPUT PARAMETERS: 
none 
IMPLICIT INPUTS: 
DEF __CURRENT 
OUTPUT PARAMETERS: 
none 
IMPLICIT OUTPUTS: 
FDL_DEST 
ROUTINES CALLED: 
none 
ROUTINE VALUE: 
none 
SIGNALS: 
none 
SIDE EFFECTS: 
The keyword is put into the file or onto the terminal. (FDL_DEST) 
o- } 
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} 
CASE DEF CURRENT* QUALIFIER OF 


as 
”" 
= 
zs 
« 
ws 
= 
ra 
oO 


Output the qualifiers. 


{ 


PROCEDURE SHOW_QUALIFIER; 
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{ +4 


SHOW CURRENT == Display (or output) the current Line_object. 


This routine outputs the textual representation of the Line_object pointed 

to by DEF HEAD. 
| 
| 


CALLING SEQUENCE: 
SHOW_CURRENT (PLUS VALUE); 
INPUT PARAMETERS: 
none 

IMPLICIT INPUTS: 
DEF CURRENT 
DEST_IS_ TERMINAL 
LINES_PER_PAGE 
OUTPUT PARAMETERS: 
none 

IMPLICIT OUTPUTS: 
FOL_DEST 

ROUTINES CALLED: 
SHOW_PRIMARY 
SHOW"QUALIF IER 
CTBSSIGNAL 

ROUTINE VALUE: 
none 

SIGNALS: 


—b bd de dd 


WN “SO VDONOUESWN “OOONOUES WO 


SL ttttdtdttttettttt 


333333333354 


Wn 


SIDE EFFECTS: 
none 
--} 


FUN —OOCOnNOuslwn—oo 


SESS 
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PROCEDURE SHOW CURRENT (PLUS_VALUE : BOOLEAN); 


VAR 
RETLEN : CVOLATILEJSWORD; 
PROCEDURE SHOW_PROT (PROTECTION : CTRL_ARRAY; FIELD_OFFSET : INTEGER); 
BEGIN 
IF PROTECTIONCFIELD_OFFSET+EDFS$V_NOREAD] THEN 
WRITE (FDL_DEST,'R"); 
IF PROTECTIONCFIELD_OFFSET+EDFSV_NOWRITE] THEN 
WRITE (FDL_DEST,"W'); 
IF PROTECTIONCFIELD_OFFSET+EDFSV_NOEXE] THEN 
WRITE (FDL_DEST,"E"); 
IF PROTECTIONCFIELD_OFFSET+EDFS$V_NODEL] THEN 
WRITE (FDL_DEST,'D"); 
END; { SHOW_PROT } 
BEGIN 


{ + 
If_it*s going to the terminal, shift it. 
IF DEST_IS_TERMINAL THEN 

WRITE (FDL_DEST,SHIFT); 


Srite to FDL_DEST. according to the type of object it is. 
CASE DEF_CURRENT*.OBJECT_TYPE OF 

PRI : 

WITH DEF_CURRENT* DO 

BEGIN 


{ + 
Output the primary. 
SHOW_PRIMARY; 


{ + 
Show only the primary if wanted. 
IF PLUS_VALUE THEN 


<m 
ano 


ea a a a do et a st 8 ss a a a ds 
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akg { + V4 
re If_it has an end-of-Line comment on it, output that also. : 
rig IF (COMMENT.DSCSW_LENGTH > 0) THEN : 
rg WRITE (FDOL_DEST,' * COMMENT .DSCSA_POINTER®: 1 
119 COMMENT .DSCSW_LENGTH); 1 
73} { + 1; 
f ; Le ig actually does the QJ0. 1, 
72 WRITELN (FDL_DEST); 1 
726 END; { PRI > 1 
728 SEC : 13 
729 13 
o7 Q WITH DEF_CURRENT* DO pt 
07 4 BEGIN 1 
07 1. 
07 { + 1 
o7 5 Output the secondary. sy 
4 7 SHOW_ SECONDARY; y 
0739 { + 1 
toe Don't show the value unless wanted. 4 
Bes IF PLUS_VALUE THEN iy 
Ors BEGIN iy 
74 { + 14 
ate If it's a string valued secondary, put the string out. YF 
th IF SEC_TYPECSECONDARY].STR THEN \ 
O73) BEGIN 
O73? CHECK_QUOTES (STRING); 
ie IF (STRING.DSC$W_LENGTH > 0) THEN 
73S WRITE (FDL_DEST,‘ * STRING.DSCSA_POINTER*: 
738 STRING. bSCSw_ LENGTH); 
760 END; 
76 { + 
te? If_ it’s a qualifier valued secondary, put the qualifier out. 
4 F IF SEC_TYPECSECONDARY].QUAL THEN 
16? SHOW_QUALIFIER; 


768 cs 
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If_it’s a number valued secondary, put the number out. 


Ag IF SEC_TYPECSECONDARY].NUM THEN 
774 { + 
oe? Show the number. 
a4 WRITE (FDL_DEST,° * ,NUMBER: NUM_LEN(NUMBER) ) ; 
7 { + 
re If_ it’s a boolean valued secondary, put YES or NO out. 
° IF SEC_TYPECSECONDARY].SW THEN 
ree IF SWITCH THEN 
7 WRITE (FDL_DEST,' “t 
ore) Saher 
$780 WRITE (FDL_DEST,' *) 
0791 _ ees 
079 IF ¢ 
378 (SECONDARY = NULL_VALUE) 
794 OR 
0795 (SECONDARY = MT_PROTECTION) 
0796 ) THEN 
$798 BEGIN 
0799 
0800 IF ¢ 
0801 a < %Xx20) { SPACE } 
$808 (NUMBER > %X7E) Bob 
) THEN 
WRITE (FDL_DEST," * ,NUMBER : NUM_LEN(NUMBER) ) 
ELSE 
WRITE (FDL_DEST,° *"** CHRC(NUMBER),°'*'); 


END; { IF SECONDARY = NULL_VALUE OR MT_PROTECTION } 


et Position is a special case. 

IF SECONDARY = POSITIONS THEN 

BEGIN 
SHOW_QUAL IF IER; 


segeeesssnsssensseeeere 
ANEW “OO VCOWOUEWN OC 0ONOu 


| 
IF ¢ 
a Ae IN C FDLSC_CYLPOS, FOLSC_LOGPOS, FDLSC_VIRPOS, FDLSC_CLUSPOS J 


WN — 


uw 


Se Se Se Se Ge Ge Se Se SB Se 
DAMMAM AVIN 
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es 


Bees 
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{ + 
Show the number. 
WRITE (FDL_DEST,* 
ELSE 
BEGIN 
CASE QUALIFIER OF 
FDLSC_FIDPOS : 
BEGIN 
WRITE itt. 
aA 


FID2: 
FID NUR LE 


END; € FILE 


FDLSC_FNMPOS : 
BEGIN 
CHECK_QUOTES ( 
IF (STRING.DSC 


Ig $e0-1984 1 93:98:88 | WhSuwsakSdte’ er saczeprsnow.pas:1°?12) 


* ,NUMBER : NUM_LEN(NUMBER) ) 


o 


T 
Vimy :NUM LEN(FID1),".", 
eee S'S; 

1D > 


STRING); 
SW_LENGTH > 0) THEN 


WRITE (FDL DEST,*  °,STRING.DSCSA_POINTER*: 
STRING.DSCSw_ LENGTH); 


END; { FILE 
OTHERWISE 


_NAME > 


{ NULL=STATEMENT } ; 


END; { CASE } 


END; { IF FALSE QUALIFIER INC ... J } 


END; { IF SECONDARY = POSIT 


{ + 
OWNER is a special case 
Use the special FAO directive 


IF (SECONDARY = OWNER) THEN 


BEGIN 
TEMP_INT2 : ER VIC 
SFAOC ('! ge RETCEN TEMP 
WRITE (FOC_DEST, TEMP_STRIN 


10N$ } 


to format the UIC. 


TRING255, TEMP_INT2) ; 
e355 :RETLEN) 


19 
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5 
{ + 
PROTECTION is also a special case. 
$36 IF (SECONDARY = PROTECTION) THEN 
91 BEGIN 
24 
089 WRITE (FDL_DEST," stem 
0894 SHOW PROT TPROT “pase Eby" sv8i; 
95 WRITE (FDL_DEST; 
SHOW PROT “tea ‘nksk, EOF 6y bun): 
89 WRITE (FDL group: 'y; 
0898 SHOW PR QF tphot ‘nis ED $v GRP); 


wR TE (FDL_DEST>', world:' 
SHOW PROT ‘uP PROT “isk. EDF SV, iio): 
WRITE (FDL_DEST?° 


END; { IF TRUE SECONDARY = PROTECTION } 


3333 


3 


{ + 
If_ it has an end-of-Line comment, put that out too. 
IF (COMMENT.DSCSW_LENGTH > 0) THEN 


333333 


0910 WRITE (FDL_DEST," ', COMMENT.DSCSA_POINTER*: 
ay COMMENT .DSC$W_LENGTH): 
1 { + 
Bate This actually does the Q10. 
oor9 WRITELN (FDL_DEST); 
0918 END; { IF P A 
0918 IF PLUS_VALUE } 
09 9 END; { SEC } 
$9 ¢ COM : 
09 
09 4 WITH DEF_CURRENT* DO 
: 6 BEGIN 
8 


{ + 
This is a full-line comment. Just output it. 
IF (COMMENT.DSCSW_LENGTH > 0) THEN 


WRITELN (FDL DEST, COMMENT .DSCSA_POINTER*: 
COMMENT .DSC$Q_LENGTH); 


END; { COM } 
OTHERWISE 
{ NULL-STATEMENT } ; 


PSSSSSISISSS 
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S33333% 
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END; { CASE > 


iano track of the number of Lines shown. 
LINES SHOWN := LINES_SHOWN + 1; 
IF DEST_IS_TERMINAL THEN 
BEGIN 
IF DEF_CURRENT*.FORE <> NIL THEN 


IF ( 

((CLINES_PER_PAGE = EDFS$C_HEADROOM) = LINES_SHOWN) < 4) 
((DEF_CURRENT*.PRIMARY <> DEF_CURRENT*. FORE”. PRIMARY) 
(DEF -CURRENT*.PRINUM <> DEF_CURRENT*.FORE*.PRINUM) 


BEGIN 
{ + 
We're about to output a short primary, reset and 
clear the screen (after the user hits RETURN). 


LINES_ SHOWN = 0; 
CLEAR” (PAUSE); 


END; 
IF ( 
(LINES SHOWN >= (LINES_PER_PAGE ~ EDFSC_HEADROOM) 


BEGIN 
{ + 
The counter tripped. reset and clear the screen 
(after the user hits RETURN). 


LINES_SHOWN := 0; 
CLEAR (PAUSE); 


END; 
END; { IF DEST_IS_TERMINAL } 
END; { SHOW_CURRENT } 


VAX-11 Pascal V 
DISKSVMSMASTER: 


4-277 ‘ 1 
fébr SacJEDFSHow.PAS:1°%12)~ 


} 
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{ ++ 
GENERATE _FDL == Routine to output the FDL definition. 
This routine outputs the FDL definition. 
CALLING SEQUENCE: 
GENERATE _FDL; 
INPUT PARAMETERS: 
none 
IMPLICIT INPUTS: 
DEF CURRENT 


333 #5 
33 


SeeSSFE2Es 


O10 ANST_REVERSE 
Ole OUTPUT PARAMETERS: 
014 none 
015 
Bi¢ IMPLICIT OUTPUTS: 
018 FDL_DEST 
838 LINES_SHOWN 
9 1 ROUTINES CALLED: 
0 CLEAR 
024 SHOW_ CURRENT 
8s? INCR_ CURRENT 
8 $ LIBSSIGNAL 
098 ROUTINE VALUE: 
8 none 
SIGNALS: 


SIDE EFFECTS: 
none 
-- } 


a et a a a tt a tS ss ts a SS Ss os ss Ss os a ss 


oooooooo 
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04 PROCEDURE GENERATE _FDL; 

Oc VAR 

04 PREV_PRIMARY : PRIMARY_TYPE; 
7 PREV_PRINUM : INTEGER; 

04 BEGIN 

04 

04 


{ + 
Do the Primaries as stored in the Definition Linked List. 
DEF_CURRENT := DEF _HEAD; 


{ + 
Setup to keep track of new primaries. 
PREV_PRINUM := <1; 


DWDONAVES WN OVODONOULE WN 


OOoooooo°coo 
PPPS 


{ + 
Initialize the Line counter (incremented in SHOW_CURRENT). 
LINES_SHOWN := 0; 


wre 


{ + 

Do it, if there is something to show. 
IF DEF_CURRENT <> NIL THEN 

BEGIN 


SSReeeeeTs 


BSBNIOSARUN—OOMN 


{ + 
List isn't enpty, cycle through the Line_objects and show them. 
at renee until the end of the List, or until the user types “2. 


REPEAT 


Coooooooeo 
SSNS NNN SS 


{ + 
Produce the textual version of the Definit 


io 
Precede the ist occurance of a primary with 


n Linked List. 
2 blank Lines. 
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1 


080 
081 ~ 
ORs WITH DEF_CURRENT* DO 
OB BEGIN 
OBS 
086 IF PREV_PRINUM < 0 THEN 
088 
0. BEGIN 
089 
090 { + : 
a4 gnictot primary, don't skip Lines here, just setup. 
098 PREV_PRIMARY := PRIMARY; 
O9¢ PREV_PRINUM := PRINUM; 
END 
oe 
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1098 ELSE 


1 

1400 BEGIN 

1101 

1108 { + 

110 Skip a Line if this is a new primary. 
1104 - } 

1102 IF NOT ( 

1106 (PREV PRIMARY = PRIMARY) AND (PREV_PRINUM = PRINUM) 
1107 ) THEN 

1198 

1109 BEGIN; 

1110 

1111 PREV_PRIMARY := PRIMARY; 

BT PREV_PRINUM := PRINUM; 

111 

1114 { + 

iz “ey is a new primary, put out a blank Line. 
1117 WRITELN (FDL_DEST); 

1333 LINES _ SHOWN := LINES_SHOWN + 1; 
1199 END; 

1182 END; { IF FALSE PREV_PRINUM >= 0 } 

1188 END; { WITH DEF_CURRENT* } 

1126 SHOW_CURRENT (TRUE); 

ae +4 INCR_CURRENT; 

94 UNTIL DEF_CURRENT = NIL; 

\133 END; { IF FALSE DEF_CURRENT = NIL } 

1133 END; { GENERATE_FDL } 


ee 


Oo 
~" 
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es 
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{ +4 

VIEW_DEF == Routine to show the user the Definition Linked List. 
This routine will display the definition on the user's terminal. 
CALLING SEQUENCE: 

VIEW_DEF; 

INPUT PARAMETERS: 

none 

IMPLICIT INPUTS: 

see*cureen 

CONTROL _ZEE_TYPED 

OUTPUT PARAMETERS: 

none 

IMPLICIT OUTPUTS: 


SYSSINPUT: the terminal 
DEST_IS_TERMINAL 


ROUTINES CALLED: 


AOAOCAOUMAMNMNUNIVNIUIVI ES SRLS LLL LE 


SN NN NNN SSO OOOO 
SSSA ARAN ASSES ASSIS SSMS SUNS SELSSEEALES 


GENERATE _FDL 
ROUTINE VALUE: 
none 

SIGNALS: 

none 

SIDE EFFECTS: 
none 

-- } 


a et et et ot SS SS I I Ht SY SY SS SS SS SS SS DY SH SS YH I YS DS SS SY 2 YS YS SY Ls Yt SY 
me ee ee ee ee ed ed ed od wd od 2 = = 2 wd 8 
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PROCEDURE VIEW_DEF; 


BEGIN 


{ + 
Erase the user's screen. 
CLEAR (SCREEN); 


{ + 
‘Open’ his terminal and initialize it. 
Close it first to avoid conflicts. 


DEST_IS_TERMINAL  := TRUE; 

CLOSE (FDL_DEST.ERROR := CONTINUE); 

OPEN (FDL~DEST ,SYSSOUTPUT NAME ,NEW,RECORD.LENGTH := 252); 
REWRITE (FDL-DESTS; 


{ + 
Put the current definition out to the terminal. 
GENERATE _FDL; 


SRVERPAVLSSRLELRANLESSISALA 


{ + 
ve done, close it off. 
CLOSE (FDL_DEST); 


{ + 

Don't clear if the user hit “Z, or if SHOW_CURRENT had just done a PAUSE. 
IF (NOT CONTROL_ZEE_TYPED) AND (LINES_SHOWN <> 0) THEN 

BEGIN 


WRITELN; 
CLEAR (PAUSE); 
END; 
END; { VIEW_DEF } 


a ak tk at 2 a 2 oP SS = 2 2 2 = ot SS 2s SS 2 2 2 st SS 8 st Ss 
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1 $ { +4 

1 

} 3 SHOW PRIMARY SECTION == Display the whole primary section. 
} : This routine outputs the selected primary section to the screen. 
; ¢ CALLING SEQUENCE: 
! : SHOW _PRIMARY_SECTION (TEST); 
: INPUT PARAMETERS: 
: : TES] 

! re IMPLICIT INPUTS: 
124 FDL_DEST 

124 CONTROL _ZEE_TYPED 
1244 DEF CURRENT 

: +2 DEF _HEAD 

} rf 4 OUTPUT PARAMETERS: 
1249 none 

1250 

: 23 IMPLICIT OUTPUTS: 
1 2g SYSSOUTPUT: 

1$28 DEF _CURRENT 

1256 ROUTINES CALLED: 
igo? 

1258 CLEAR 

\¢3 INCR_CURRENT 

; $9 SECTION_MATCH 
1362 ROUTINE VALUE: 

126 

1264 none 

i rH SIGNALS 

1 $9 ; 

1268 none 

1 $8 

1270 SIDE EFFECTS: 

1271 

127 none 

127 

1274 -- } 


a 
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76 CGLOBAL] PROCEDURE SHOW_PRIMARY_SECTION (TEST : LINE_OBJECT); 
i VAR 
9 AT_PRIMARY : BOOLEAN; 
81 BEGIN 
83 Cs 
Be Show him that whole primary section. 
Mg] LINES_ SHOWN := 0; 
HY (+ 
34 Step through the whole List. 
91 DEF CURRENT := DEF_HEAD; 
3 AT_PRIMARY := FALSE; 
94 REPEAT 
95 
296 { + 
29 If _DEF_CURRENT points to a Line_object in that primary, show it. 


IF CURRENT_EQ_TEST (TEST,FALSE) THEN 
BEGIN 
a CURRENT (TRUE); 


Srancsses 


INCR_CURRENT; 
UNTIL DEF_CURRENT = NIL; 
WRITELN (FDL_DEST); 
END;  { SHOW.PRIMARY_SECTION } 


me a te a at 8 ot = = = 4 = 9 2s hs Las — SS SS Ss ot SS SS SS Ss YS ts YS YH YS 


Be T_PRIMARY := TRUE; 
306 END 

368 ELSE 

309 

311 BEGIN 

2 IF AT_PRIMARY THEN 
Hf DEF _CURRENT := NIL; 
16 END; 

4 

18 { + 

$35 Try the next. 

31 

: 


NOUEWN— 


Morore 
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RS 
£ 
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<m 
DONOUESWI"O” S 


{ ++ 

SHOW_ALL_PRIMARIES == Display the existing primary attributes. 
This routine outputs the existing primaries on the screen. 
CALLING SEQUENCE: 

SHOW_ALL_PRIMARIES; 

INPUT PARAMETERS: 

none 

IMPLICIT INPUTS: 

FDL_DEST 

CONTROL _ZEE_TYPED 

DEF __CURRENT 

DEF _HEAD 

OUTPUT PARAMETERS: 

none 

IMPLICIT OUTPUTS: 


SYSSOUTPUT: 
DEF CURRENT 


ROUTINES CALLED: 


ee ee ee ee ee ee ee ee ee ee ee eee 
x eaaeaivatestete tated 
N VMN SESE Se 
no OOONAUESWN (CO OONOAUES WN "CO OONOU SW O 


CLEAR 
INCR_CURRENT 
SECTION_MATCH 
ROUTINE VALUE: 
none 
SIGNALS: 

a none 

7 SIDE EFFECTS: 

74 

75 none 

7 

7 -- } 


SHOW 
-000 


<m 
RS 


79 
1 
§ 
4 
5 
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END; 
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CGLOBAL] PROCEDURE SHOW_ALL_PRIMARIES; 
BEGIN 


{ + 
Show him all the primary attributes. 
LINES_SHOWN := 0; 


{ + 
Sy through the whole List. 
DEF _CURRENT := DEF _HEAD; 
REPEAT 
i "Der CURRENT points to a Line_object that is a primary, show it. 
f not the Ident. 
IF > 
(DEF _CURRENT* .OBJECT_TYPE = PRI) 


(DEF _CURRENT*.PRIMARY <> IDENT) 
) THEN 


SHOW_CURRENT (TRUE); 


{ + 
Try the next. 
INCR_CURRENT; 
UNTIL DEF_CURRENT = NIL; 
WRITELN (FDL_DEST); 
{ SHOW_ALL_PRIMARIES } 


VAX-11 Pasca 
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{ +4 
SHOW_CUR_PRI_SEC == Display the Line_object pointed to by def_current. 
This routine outputs the def_current Line_object. 
CALLING SEQUENCE: 
SHOW_CUR_PRI_SEC; 
INPUT PARAMETERS: 
none 
IMPLICIT INPUTS: 


aa 


FDL_DEST 
CONTROL_ZEE_TYPED 
DEF _CURRENT 

DEF “HEAD 


Lo gee ery eee tere wd oh oe eh ae Nee 4 


OUTPUT PARAMETERS: 
none 
IMPLICIT OUTPUTS: 


SYSSOUTPUT: 
DEF CURRENT 


ROUTINES CALLED: 
CLEAR 
INCR_CURRENT 
SECTION_MATCH 
ROUTINE VALUE: 


ee ee ee eee ee ee 
SELVES SSS Sa et he et et ee 
DONO ULS WN" OOONOUE WN Oo 


Fal tal tal al tk ak el ek ek ek ek ee a eh eh ek eh eh ee ee 


none 
SIGNALS: 
none 
61 
$¢ SIDE EFFECTS: 
6 
64 none 
65 
66 -- } 
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1468 CGLOBAL] PROCEDURE SHOW_CUR_PRI_SEC (PLUS_VALUE : BOOLEAN); 
1299 VAR 

ri SAVE _OBJECT_TYPE : LINE _OBJECT_TYPE; 

1 BEGIN 

75 LINES _ SHOWN := 0; 

i$ 


{ + 

Now display the 2 versions of the Line_object. 

ALL this only works because the primary that a Line_object is in 
is_ stored redundantly in all the subsequent secondaries. 
SAVE_OBJECT_TYPE := DEF _CURRENT* .OBJECT_TYPE; 


DEF CURRENT* OBJECT TYPE := PRI; 
SHOO_CURRENT (PLUS_VALUE); 


IF DEF _CURRENT*.PRIMARY <> TITLE THEN 
BEGIN 


DEF CURRENT*.OBJECT TYPE := SEC; 
SHOO_CURRENT (PLUS_VALUE); 


Sk al ed Dek Ike Del Del eek ee elk 


os ss ss ts 8 9 a 4 a ss — os 9 Ls os a = 1 st it 
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4 END; 

4 

$38 DEF _CURRENT*.OBJECT_TYPE := SAVE _OBJECT_TYPE; 
re END; { SHOW_CUR_PRI_SEC } 

500 END. 

501 { End of file: SRCS:EDFSHOW.PAS } 
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885 91 8 B 
: oa i 
8 0 £4 
7 95D 94 02F8 
907 9D 9A 3 8 of LONG  2465,2476,2493, 1 4,2531,2535 
FC OF a03e7 F a8 90 0328 547,2556,2560, 335° $355 +32 9° ." yoetegs 
nee A16 A Q90A0 033¢ 
59 54 SF 59 S2 41 44 4E 4F 43 45 Og : 0 «ASCII <14>\SECONDARY_TYPE\ 
44 GE 4F 59 4D 4D 3 3 33 0 F eASCII <16>\DUMMY_SECONDARYS\ 
48 43 4F ée 23 0 ASCII <9>\BLOCK_10$\ 
54 45 4C 45 44 «(07 037A “ASCII cNeEtS TES\ 
24 24 45 47 06 0382 “ASCII \GET \ 
4 54 55 20 04 0 "ASCII © <4>\PUTS\ 
5 4F 43 «(45 2 A 0 ¢ “ASCII ST0>\RECORD 10$\ 
4 4E 55 25 4 09 039 ASCII <9>\TRUNCATES\ 
54 41 44 50 55 07 00 Al “ASCII <P>AUPDATES\ 
59 52 54 46 45 05 O39 "ASCII <5>\ENT 
41 4C 43 4 32 OF OO3Ar “ASCII <35>\RECLAIMED. SPACE\ 
SF 41 54 461 44 OA 003B8F eASCII <10>\DATA_FILLS\ 
SF 41 54 41 44 15 OO3CA ASCII <21>\DATA_ KEY_COMPRESSIONS\ 
uF 49 23 53 45 32 00308 
SF 41 4 41 44 1 003E0 eASCII <24>\DATA_RECORD_COMPRESSIONS\ 
53 45 52 50 4D 4F OO3EE 
SF 41 54 41 44 «(11 003F9 -ASCII. <17>\DATA_RECORD_COUNT\ 
54 4E 55 GF 00407 
SF 41 54 41 44 «13 00408 «ASCII <19>\DATA_SPACE_OCCUPIED\ 
44 45 49 30 55 43 00419 
54 45 4C 45 44 09 0041F ASCII <9>\DELETIONS\ 
48 54 28 45 44 05 00429 eASCII <5> 
49 4¢ 50 55 44 13 0042F “ASCII <19>\DUPLICATES_PER_SIDR\ 
2 44 49 53 SE 5 004 Q 
58 45 46 4E 49 «(7 0044 ASCII <18>\INDEX_COMPRESSIONS\ 
24 4E 4F 49 5 00451 
58 45 44 4E 49 OF 0456 ASCII <11>\INDEX_FILLS\ 
58 45 44 4E 49 14 0046 “ASCII <20>\ INDEX” SPACE. OCCUPIED\ 
45 49 50 55 43 43 90479 
4c 45 26 45 4¢ 1 0477 ASCII <19>\LEVEL1_RECORD_COUNT\ 
54 4 55 4F 43 SF 00485 
SF 4E «6441 «445 «44D «C10 00488 ASCII <16>\MEAN_DATA_LENGTH\ 
48 54 47 049 
SF 4E 41 4 4p 11 049¢ «ASCII <17>\MEAN_INDEX_LENGTH\ 
48 54 47 4E O4AA 
OF 46 4E 41 i OF soca ASCII <15>\RANDOM_ACCESSES\ 
4F 64 4E 41 Q O4BE ASCII <14>\RANDOM_INSERTS\ 
45 55 51 45 531 aoécp .ASCII <19>\SEQUENTIAL_ACCESSES\ 
53 45 53 53 45 4 0408 
4 4F rs is 41 99 Ree eASCII <11>\ALLOCATIONS\ 
of 34 53 43 42 14 AED “ASCII <20>\BEST_TRY_CONTIGUOUSS\ 
2 4B 43 32 4g Oc $808 ASCII <1 12>\BUCKET SIZES\ 
49 54 4— 4F 43 08 050F "ASCII <11>\CONTIGOOUSS\ 
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<18>\EXACT_POSITIONINGS$\ 
<10>\EXTENSIONS\ 
<9>\POSITIONS\ 
<7>\VOLUMES$\ 
<12>\ASYNCHRONOUS \ 
<8>\BLOCK_IO\ 
<11>\BUCKET_CODE\ 

<7> TEXTS 
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<12>\FILC_BOCKETS\ 

1 AST_DELETE\ 
<16>\KEY_OF _REFERENCE\ 
<17>\KEY_GREATER_EQUAL\ 


<16>\KEY_GREATER_THAN\ 


<16>\MULTIBLOCK_COUNT\ 
<17>\MULTIBUFFER_COUNT\ 


<6>\NOLOCK\ 
<18>\NONEXISTENT_RECORD\ 


<10>\READ_AHEAD\ 
<15>\READ-REGARDLESS\ 


<14>\TIMEOUT_ENABLE\ 
<14>\TIMEOUT_PERIOD\ 
<15>\ TRUNCATE _ON_PUT\ 
<19>\TT_CANCEL_CONTROL_O\ 
<15>\TT_UPCASE_INPUT\ 


<9>\TT_PROMPT\ 
<19>\TT_PURGE_TYPE_AHEAD\ 


<14>\TT_READ_NOECHO\ 
<16>\TT_READ_NOF ILTER\ 


<9>\UPDATE_IF\ 
<15>\WAIT_FOR_RECORD\ 


<12>\WRITE_BEHIND\ 
KUPS$\ 


<7>\BAC 
<9>\CREATIONS\ 


| 
5 


eee wie) 


VFS WS We 
Wo 
PAF WEES 
SrNOVMsS WD OOMO 
Puan Vn fu 
MERE LTS 
MPM WSLS 
MNOUNOUS ££ oOo— 


WHO 


uw S&S 
Nn O67 


oerncaseser eRe se 


1 
Ib-se 1984 01:05:4 VAX-11 Pascal V2.4-277 Pa 36 | 
Generated Code 300-1382 93:98:38 DLSKSVMSMASTER\ CEDF-SRCJEDF SHOW.PAS: 1 %2) | 
49 50 5B 4 0731 ASCII <11>\EXPIRATIONS\ : 
4 49 2 28 $2 3 orp SASCII COS REVISTONSS | 
43 gf bc 4f 41 OA 7% “ASCII £19>\ALLOCATION\ | 
of 24 33 4 46 13 0738 ASCII <19>\BEST_TRY_CONTIGUOUS\ | 
2 48 43 : 42 0B 0766 ASCII <11>\BUCKET_SIZE\ | 
54 95 9) 4C 43 OC 0? “ASCII <12>\CLUSTER SIZE\ | 
45 54 4E GF 43 08 077F ASCII <B>\CONTEXTSS 
49 54 ae GF 43 OA 0788 “ASCII <10>\CONTIGUOUS\ 
24 41 4 5¢ 43 09 079 “ASCII © <9>\CREATE_IF\ 
5 41 46 45 44 OC 0790 “ASCII <12>\DEFAUCT_NAME\ 
52 45 46 45 44 Of OPA eASCII <14>\DEFERREB_WRITE\ | 
54 45 4C 45 44 OF ares ASCII <15>\DELETE_ON_CLOSE\ 
43 45 52 49 44 OF a9rc9 «ASCII <15>\DIRECTORY_ENTRY\ 
45 53 41 52 43 OF 00709 ASCII <15>\ERASE_ON_DELETE\ 
4E 45 54 58 45 09 007€9 ASCII <9>\EXTENSION\ 
41 42 or 4c 47 13 oo7F 3 ASCII <19>\GLOBAL_BUFFER_COUNT\ 
4c 43 of 54 4D 0 90807 ASCII <13>\MT_BLOCK SIZE\ 
55 43 5F 54 4D 13 0815 ASCII <19>\MTICURRERT_POSITION\ 
4E 4F 49 54 49 «5 00823 
aF ae SF 54 4D OA 00829 ASCII <10>\MT_NOT_EOF\ 
32 50 SF 54 4D OD 008 4 ASCII <13>\MT~PROTECTION\ 
50 4F 5F 54 4D OF 00842 “ASCII © <14>\MTZOPEN_REWIND\ | 
4C 43 SF 54 4p OF 00851 ASCII <15>\MT_CLOSE_REWIND\ 
52 SF 58 41 4p i 00861 ASCII <17>\MAX_RECORD_NUMBER\ 
4D 49 3 41 4D 10 00873 ASCII <16>\MAXIMIZE_VERSION\ 
45 4D ri df ba 00884 ASCII <4>\NAME\ 
43 41 42 4F 4E 0 a0888 “ASCII <8>\NOBACKUP\ 
46 if 4 af gE i 0892 “ASCII <19>\NON_FILE_STRUCTURED\ 
55 50 54 55 GF 13 O8A6 .ASCII  <17>\OUTPUT_FILE_PARSE\ 
45 53 52 41 0884 
ur Go BME cASHE daxaanenurzarion 
34 4E 3 3 50 OF OCB “ASCII <14>\PRINT_ON_CLOSE\ 
45 54 4F 52 5 OA OBDA .ASCII <10>\PROTECTION\ 
of 46 41 6 A 8E5 SASCII <10>\READ_CHECK\ 
3 49 36 45 08 OBFO “ASCII] © <8>\REVISTON\ 
45 55 51 45 OF Br “ASCII <15>\SEQUENTIAL_ONLY\ 
49 4D 42 55 33 OF 0909 ASCII <15>\SUBMIT_ON_CLOSE\ 
52 45 50 55 9 919 ASCII <9>\SUPERSEDE\ 
4F 50 4p 45 54 09 923 “ASCII <9>\TEMPORARY\ 
43 4E ; i 34 i } p “ASCII <17>\TRUNCATE_ON_CLOSE\ | 
SF 52 23 55 OE $9 ; ASCII <14>\USER_FILE_OPEN\ | 
| 
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v04-000 Generated Code ~3007 1 38t 94:93:4 PEK SUNGAASTER FEDR <GRCJEDFSHOW.PAS: 1 2) 
00 09 45 59 54 09 B60 C.AAM: .ASCII <9>\TYPE\<9><9><0> 
| 00 72 65 64 6€ 69 6C 3 3 SF 39 6E } 03 ses C.AAN: .ASCII <9>\any_cylinder\<0><0><0> 
9 72 65 74 73 75 . 63 B78 C.AAO: .ASCII \cluster\<0> 
65 64 6—€ 69 6C 6 B80 C.AAP: .ASCII \cylinder\ 
00 44 49 SF : 6C 69 66 B88 C.AAQ: .ASCII \file_ID\<0> 
00 00 00 65 6D 61 of 6 f e? 66 B90 C.AAR: .ASCII \file_name\<0><0><0> 
6C § 9 F of B9C C.AAS: .ASCII \logical\<0> 
0 8 1 4 72 69 76 BAS C.AAT: .ASCII \virtual\< 
0 g 6 oF 6F 9 BAC C.AAU: .ASCII <9>\none\<0><0><0> 
4 6 6 6 9 BB4 C.AAV: .ASCII <B2\ indexed 
3 6 69 74 I § ° 4 rg C.AAW: .ASCII <9>\relative\<0><0><0> 
6C 61 69 74 6E 65 BCS C.AAX: .ASCII <9>\sequential\<0> 
72 65 76 6F 63 65 72 SF . 2 zs 7s 9? pe0s C.AAY: .ASCII <9>\if_in_recovery_unit\ 
SF 6F 74 SF 79 72 61 73 73 b2 97 6 $f 09 Ose 8 C.AAZ: .ASCiI <9>\necessary_to_write\<0> 
72 75 6F 6A SF 55 52 SF "3 65 76 G2 of 09 perk C.ABA: .ASCII <9>\never_RU_journal\<0><0><0> 
75 74 65 72 SF 65 67 61 69 99 99 61 o 05 age10 C.ABB: .ASCII <9>\carriage_return\ 
4 41 33 54 3 4F us 68 0c 5 C.ABC: .ASCII <9>\FORTRAN\ 
00 00 74 of § if 70 09 0C28 C.ABD: .ASCII <9>\print\<0><0> 
[ eABE: .ASCII <9>\fixed\<0><0> 
00 eb St 68 72 9% SOBER Ecames CASEI Sbo\ctreea veo 
-ABF: stream 
00 00 43 SF 6D 61 65 72 74 73 O9 00C40 C.ABG: .ASCII <9>\stream_CR\<0><0> 
00 00 46 af 5F 6D 61 65 72 74 7 82 OC4C C.ABH: .ASCII <9>\stream_LF\<0><0> 
00 00 65 6€ 69 66 65 64 6E€ 7 Q 0C58 C.ABI: .ASCII <9>\undefined\<0><0> 
00 00 65 6C 62 61 69 é 61 76 89 pees ABJ: .ASCII <9>\variable\<0><0><0> 
43 46 56 09 OC70 C.ABK: .ASCII <9>\VFC\ 
00 00 2 6€ 69 62 O09 OC74 C.ABL: .ASCII <9>\bin2\<0><0><0> 
00 00 4 6€ 69 62 09 OC7C C.ABM: .ASCII <9>\bin4\<0><0><0> 
00 00 00 38 6—€ 69 6 9 OC -ABN: .ASCII <9>\bin8\<0><0><0> 
6C 61 9 § 65 9 OC ABO: .ASCII <9>\decimal\ 
00 00 2 74 6€ 9 Bat ABP: .ASCII <9>\int2\<0><0><0> 
00 00 00 34 74 6€ 9 OC -ABQ: ASCII <9>\int4\<0><0><0> 
00 4 00 38 74 of 9 OC ABR: .ASCII <9>\int8\<0><0><0> 
00 67 6€ 69 7 4 9 OC ABS: .ASCII <9>\string\<0> 
41 9 OC -AB ASCII <9>\IAS\ 
45 2F 53 54 :] OC . eASCII <9>\RSTS/E\<0> 
4D Hi 1 $p 8 9 oc ‘ SCI] <9>\RSX-11M\ 
00 53 55 4C 50 20 4D 31 31 2d 58 H 3 . SCI] <9>\RSX-11M-PLUS\<0><0><0> 
ny ; BE tH 
6 2F 9 C SCII 
9 C SCII 
9 Cc SCII 
9 Cc ScIl 
A ; G 
D I 
1 i) I 
9 ny) I 
C D ] 
C D I 
C | 


cK—ToOwN COOP <x C<cc-4 


‘ eASCII <9>\(\<0><0> 
09 90 4 ‘ ASC ' \! ye v<oocopees 
00 00 3A . F - ASC <95\ (system: \<0><0><0> 
A 3 $3 6— 77 6F " ASCII \, owner:\ 
A 7 , ve $7 ‘ SCII \, group:\ 
A 64 6 2 6F 7 04 ‘ eASCII \, world:\ 
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” Can] 
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| 1 
| EDF SHOW 16-Sep-1984 01:05:4 VAX-11 Pascal V2.4-277 Pa 40 
¥04=000 Generated Code b-sen- 1984 94:93:68 DISKSVMSMASTER: LEDF . SRCJEDFSHOW.PAS; 1 $2) | 
5 04 AC OD C3 MOVL  4(R12),R6 
4 A p ¢ MOV 4(R6) Rb 
04 B44 FF AGG cB MOV 4 (ROSCINDEX .@4 (R4) CINDEXI 
FFEO 51 FRFFFFFF a 53 OF ACBL = RB. #1, R1, 168 | 
OOFE &F 04 8 81 178 CMP gaint § #254 : 0223) 
Vv BGEQU 0$ | 
04 8 £ INCW © @4 (R12) : 0235 
D 7 208 DECL § SCAN_IND + 0229 
01 D} 9 CMPL SCANTINDEX 1 
C BGEG 4$ 
52 MOVB QUOTES .QCHAR : 0233 
V F BRB 2 
52 000000006 boy 3 228: ROVE APOSTROPHE , QCHAR 7 0241 
52 FC 348: vB auores QCHAR : 0251 
04 : FF 25$: MOVZWL @4(R125,RO : 0258 
v 1 BLE 7$ 
55 DO 00105 268:  MmOvVL RO INDEX 
1 4 AC 00 001 MOVL  4(R12),R1 ; 0260 
3 4 AC 00 001 ¢ MOVL  4(R12)‘R3 
04 A 11 MOVL 4(R3),R3 
04 B14 FF A346 114 MOVE = = 1 (R3S CINDEX],@4(R1) CINDEX) 
£7? 50 £5 00118 SOBGTR RO. 268 
04 BC 02 =A gu) 27$ ADDW2 # 04 (R13) : 0265 
0 04 AC 1 MOVL 4(R12),R 3 0266 
04 5 1 MOVB QCHAR,@4(RO) 
04 BC 12A MOVZWL @4(R12),RO : 0267 
04 aC DO 001 : MOVL  4(R12),R5 
55 06 A 0 01 MOVL 4(R5),R5 
FF AS4O iby 9 91 move QCHAR,~1(R5)CROJ 
F8 AD 010E000 F po 1 p 298 MOVL 317696722 -8(FP) : 0277 
FC AD 000 000 G EF 3 14 ROVAB EMPTY -STRING,~4(FP) 
04 ac DD 91 " PUSHL  4(R12) 
000000006 EF 02 FB 001 CALLS #2,STRSTRIM 
04 0015A 308 RET ; 0281 
; Routine Size: 347 bytes, Routine Base: SCODE + OOD4C 
¥\ e 0328 
00000 er Obs ot Der FURRENT R12 35 
ue P 
; 8° fh $0 DC 25 cn ) TEMP _PRI ; 0343 
5 A 00 EMP PRI.R ; 0347 | 
E 00000000GEF4 A 00 PRIMARY WIDTHCRO),-(SP) | 
5 A 000 TEMP_PRT,-(SP) | 
FFFFFI38 EF  9F 000 ‘ | 
000000006 EF  9f 000 FOL DEST | 
000000006 EF FB 000 #4, PASSWRITE_ENUMERATED | 
9A 006 TEMP PRI ,RO ; 0352 | 
1 , pI 06 A16 7 
OOVFFFFFIFS EF : ei 000 : - -C.AAB,3$ : 0356 | 
DB? Be #32 foe 
000000006 EF 9F 00C FDL_DEST | 


"Sameera mca a a a aaa a a neta — —_ ——-| 
i 
| 
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EDF SHOW 16-Sep-1984 01:05:4 VAX-11 Pascal V2.4-277 Page 41 E 
| ¥04-000 Generated Code g- 900-1388 94:93:38 PP KSUNGRAS TER FEDF SRCJEDESHOW.PAS: 1 $2) | \ 
000000006 EF 03 «FB a CALLS 43 PASSURITE.CHAR | 
1A at OF F PUSHAB 26(R12) 
penpeanns 8 bb 00088 see age | 
1A AC pp B PUSHL 26(R12) 
000000006 EF 9F E PUSHAB FDL DEST 
000000006 gE fo CALLS 4#3,PASS$WRITE_INTEGER 
9A B 3$: MOVZBL TEMP PRI,R2 : 0359 
1 D1 CMPL §~=s_- R2, #T6 
v it BGEGU 7 
OOVFFFFFIB8 = EF f 7 BBC R2,C.AAC,7$ 
1 at F 78 PUSHAB 1/7(Ri2) 7 0363 
Op4c CF oi Ff 3 CALLS #1 CHECK QUOTES 
1 aC 65 0 TSTw  17¢R12) : 0365 
v 0 7$ 
1 od #1 3 0367 
9 D 00 ao | 
000000006 cf F FDL DEST 
000000006 ai 3 «FB #3, PASSWRITE_CHAR 
E 1 A 3¢ V7iRI2) ,=(SPY 
15 BC OF a3) ¢nt2) 
So00n0006 EF OF t5C DEST 
000000006 EF 5S FB #5 PASSWRITE_STRING roe 
; Routine Size: 182 bytes, Routine Base: SCODE + OOEA7 
3; 0421 
000 “M<R2,R3> 
fs moons og OFF gC GRREMT R12, : 948 
é 55 9A TEMP s6C.RO ’ : b420 
00000098 = BF : pi R aT 
O3 FFFFFISE EF 8 fi RO,C.AAD,.+3 
0000v 31 12§ 
1 +4 a) 3 0444 
000000006 EF 9F FDL DEST 
000000006 EF p B #3, PASSWRITE_CHAR : 
9 A 006 TEMP SEC,RO 
00000000GEF 4 E 00038 SECORDARY WIDTHCROJ,R3 
E A 000 (R3) ,=(SPY 
7E : A 10 TEMP’ SEC, -(SP) 
seonesiGe tr Re ia 
000000006 ef fe 10 a4 PASSURI TE ENUMERATED 
1 : ? | pe 3 0449 
00000100 = &F 23 «OA S i i pron ren | 
VFFFFFBGE EF AC (R12), C.AAF,5$ | 
” rFFFERSE f ¢ AAG : 0655 | 
000000006 EF BF FDL_DEST | 


cr 
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—— SESS —— — - = — 
ee ——EOEEEEEEEEEEEEEEEEEEEEEEEEEeEeEeeee 7 


1 | 

LJ es . . a = 

Oe 000 Generated Code 1b-Sen-1984 94:93:68 BIScSumGnhsfens EDF: Shcaeorswou.eas: i PS2) | 
000000006 EF | 


| a CALLS "8 PASSWRITE_STRING 
| 08 1 5$: CMPB i, »,#8 : 0457/ 
v ie C BGEQU 7$ 
FFEFFFBGF Fe oF E PUSHAB (,AAH 7 0459 
2 pp PUSHL #2 
000000006 EF 9F 6 PUSHAB FDL_DEST 
000000006 EF oodgy re H! CALLS 1 PASSWRITE_STRING 
10 H ag 7$: CMPB RD ans : 0461 
if A BLSSU + 
0000v 31 000a8 W 193 
DD OO0A PUSHL #1 : 0463 
000000006 H 4 i PUSHAB +4 DEST 
000000006 EF 3 re 0B CALLS * 43 PASSWRITE_CHAR 
0000v 3 OBF BRW 19$ 
85 BF 1 000C2 128:  CMPB  =TEMP_SEC,#-123 3 0474 
00v 12 000¢ BNEQ 14$ 
FFFFFBI9 EF 9F 000C PUSHAB C.AAI 3 0476 
4 pp dOce PUSHL #4 
000000006 EF 9F PUSHAB FDL DEST 
000000006 _ EF 3 FB 00006 CALLS #3, PASS$WRITE_STRING 
1 0D 00000 PUSHL #1 
cooooodes ff BP Bam RS MIEL 
00000000G_ EF caamaaae 03 FB O0e CALLS #8 PASSURITE INTEGER 
cooonoos HPO? ithe FA ca 
F FB OOOFD CALLS #3,PASSWRITE_STRING 
= ir of 0104 14%:  CMPB TEMP SEC #123 7 0481 
00v 12 00108 BNEQ 16$ 
FFFFFAE3 cf 9F OO10A PUSHAB C.AAK 3 0483 
pp 11 PUSHL #4 
000000006 EF 9F 0011 PUSHAB FDL DEST 
000000006 EF O3 FB 118 CALLS #3, PASSURITE_STRING 
000000006 EF 9F b0134 Pusha Fpc OES? 
000000006 EF ih O5 FB A CALLS é jRASSURITE_INTEGER 
coonooos HRB, the FI gee 
000000006 ef fe 13F CALLS WS cPASSURITE STRING 
4 F 91 00146 16$: CMPB TERP_SEC,#-121 : 0488 
Vv 12 OO14A co 3=s-:«419$ 
FFFFFABI ai 9F 0014 PUSHAB C.AAM : 0490 
000000006 FF oP 13 PUSHAB if DEST 
00000000 FB OO15A CALLS #3,PAS$WRITE_STRING | 
wttved . be 161 19$: RET : 0502 
3; Routine Size: 354 bytes, Routine Base: SCODE + O0FSD 
SHOW QUALIFIER: : 0548 
0000 80000 near AER “Keo 


DOOOOOOOOOSOOOOOoOSoSoS 


wn ~ [.¢] o | 
w w wv w ! 
w w w w 
So oS o oO 
a . *e = 
oO o 
2 2 
— — 
« a 
ne 
So ” w” 
eo a ' 
~— ive} ive) 
oR -_ -_ 
Zz: not —t 
wo < « 
cz -3 -s3 - 
<— c@ s DA NA ” 
oe od ww ww w 
“2 : zg %Ss 
PPBAPAAAAAA NA AAPA AA AAAAAAAHM PARAPAAAAAAA IM I ae —_ A ) 
ERAARAAMAMAHRHANAOR NOMS Oe ONINSIM FANON OP OANUUANO Oh OO AM OMe OO 
cs PN CONF WD DOP. 0 I IN ENP OA COPMICUCUPMICUNMI CUCU US uu SPU Ru BwrURu 
om HQE2aQGOQOQGAQAGAAAAAAAaAaAaAaAAaAGAaAAaAAAAAaAaAAaAaAaAaAaAaAaAaAaAaaAoao jaw ain —_ 
AWMAMAMAMMNMAMNMNMNMNANMNMNMAMAMNMNMKMMAMWMMKHNAMWMMWMKWVMAMWMHWNMMMNNMMNMNNNH TIT Se ee 
I tt tg a a ag ty at a ag tg a at ag ag ag ag ag ag at nd ae ng sg ge ed et de ee eg ee ee BY EOI BN 
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ww 
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-e@ coed ase PA 
wy - N | a] 
RON WO WOWT OO Cf VWOW ST 00 £ VWOW ST 0D £ VOWOW~T 00 fC OWOW TT 00D Cf UWOMOD aw x 
a SSSSSSSS OOOO OS OS OOOO OOO OS SHAS ASSO OOO SOOO SS SS OOOO Soo oSS 
SOOCoCOOooooooooooooooooooooooooooooooooooooooooce SSssses = 
SoS OCCOOOOOOOOOOOOOOOOOOCOOOOCOOOSGSOCCCOOCCOOCSOSOOOOOoOOOoOOOOOoOoSS 
ouw wwe Oe Oru Oe Or & Ou 
av PA ODPL INA OP a MOA OO 
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000000006 O8 
Vv 
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FFFFFOFC 4 
000000006 f 
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FFFFF9EC F 
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FFFFFODC F 
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14$: 


4 
or1882 94:93:60 
CALLS #3 
RW 41§ 
pune, PN 
PUSHAB FDL DEST 
CALLS #3,PASS$WRITE_STRING 
RW 41§ 
Ae rg 3 AAR 
PUSHAB FDL DEST 
CALLS #3,PASS$WRITE_STRING 
BRW 41$ 
PUSHAB (.AAS 
ie | 
CALLS 43 PASSWRITE_STRING 
RW 41§ 
PUSHAB (.AAT 
se ae 
CALLS 43 PASSWRITE_STRING 
BRW 41§ 
PUSHAB (.AAU 
PUSHAB FOL_DEST 
CALLS 43 PASSWRITE_STRING 
BRW 41$ 
PUSHAB (.AAV 
PUSHAB FDL_DEST 
CALLS #8 PASSWRITE_STRING 
BRW 41$ 
PUSHAB (.AAW 
pu Ah, est 
CALLS 8 PASSWRITE_STRING 
RW 41$ 
PUSHAB (.AAX 
PUSHL #11 
SHAB FDL 
CALLS a 
Rid 41$ 
PUSHAB C.AAY 
PUSHL #20 
PUS FDL 
CALLS # 
BRW 41$ 
PUSHAB (.AAZ 
PUSHL #19 
PUSHAB FDL DE 
CALLS #3,PAS 
BRW 4i$ 
PUSHAB (.ABA 
PUSHL #17 
PUSHAB FDL DE 
CALLS #3,PA 
BRW 41 
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#5 PASSURITE_ STRING 

55 PP 

FDL DEST 

#3, PASSWRITE_STRING 

41§ 

ies 

FDL DEST 

#3, PASSWRITE_STRING 
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55 er 

FDL DEST 

#3, PASSWRITE_STRING 
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¢ ABS 

FDL DEST 

#3, PASSWRITE_STRING 
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EDL DEST 

#3, PASSWRITE_STRING 
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N 1 
16-Sep-1984 VAX-11 Pascal V2.4-277 
|¥04=000 Generated Code g-800- 1382 94: 3: $0 DISKSVMSMAS STER: Veete » SRCJEDF SHOW.PAS; 1 is 
| 0Ov 11 D BRB 41$ 
FFFFF BGG Fe OF Bs 38$:  PUSHAB C.ABY 3 0595 
000000006 4 BP DF pySHAe 
000000006 EF OS re E5 CALLS #8 PRSSURITE, STRING 
FFEFFF835 Fr 9F OO3EE 398 PUSHAB (.ABZ : 0596 
000000006 4 BP fe PUSHAB F 1 
000000006 EF OS re ‘i CALLS HPA {PASSURLITE _STRING 
405 40$: 
m 04 ip 41$: RET 3 0604 
3 Routine Size: 1030 bytes, Routine Base: SCODE + 010BF 
; : 0656 
5E 14 000% goons 
Semon OR eres mE “ag 
: 000000006 EF oF SHIFT + 0690 
% 000000006 EF 9F FDL» 
000000006 EF 3 FB r PASSuniTE STRING 
hn 50 000000006 EF bo DEF CURR URRE TRO 7 0695 
02 00 0 &8F RO. 0,02 
$000v 33 
itt 51$ 
0000v 31 55$ 
52 000000006 EF 00 DEF _CURRENT,R2 : 0699 
OEA7 60 FB #0,SHOW PRIMARY + 0706 
00v ¢ E PLUS_VACUE,8$ : 0711 
09 Ae 8? grey : 0716 
0 bd #1 : 0718 
000000006 FF or FDL DEST 
F 3 FB #3, PASSWRITE CHAR 
seentattte cf 09 A 3¢ 9cR2) = (SP) ~ 
0D Be F ai 3cn2) 
99 OOOFF 8F ODD #255 
000006 EF anne 5 4 We PRESURITE _STRING 
— ‘3 000000006 EF 9F FDL_DEST 3 0724 
000000006 EF nobly re #1 ,PASSURITELN2 
52 000000006 EF 00 ber CURRENT ,R2 ; 0730 
F #0,SHOW SECONDARY ; 
vo of ‘ fat WS 
¢ 1€ Ae aA 30(n2), R12 : 0749 
00v000000006_ EF ge E1 Rise SEC_TYPE,15$ 


v04-000 Generated Code 


0D4C 
000000006 


000000006 


00v000000006 
108F 
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000000006 
000000006 


000000006 


00v000000006 
00v 28 
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000000006 
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27) A 7E oS 
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, 000000006 
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800000006 


1E 


MUO MUNIN 
oo "nooo 


m 
an 


000000006 
27 


27 
000000006 
1E 


FFFFF6DO 
000000006 


FFFFFOBD 
‘gp 200000006 
F 1E 
8F 1E 
20 27 
07 
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NINA OA AMINE & EWI 2 S$ “QOS BM AMMMOGVIVOOCOWVWWI> 


<_ <c < <£ 
99 Nn 29  O ONO O§ MOS OMMOOONDOIIS NOMNOVIMIO OMMOOONOSOIWTOVIIO-aI"o 
9909 O20 "WS WB BNO BSG TS OL POMOC DW "OO Cf POOF FSO "VOD "VO IOVOon 
SoGOGSGOOCOOGOCSOSOOCOOSSSCOCOCOOOSSCOCCOSOSOOSCOCCOOSOOOOSOSOSOSOOOOSOOOOOOOOOSoO 
SOOOCOSOCOCOCOOOCOSOOSOOSOSOSSCSOSOSSOSSSOCOCOCCCCOSOOSCOOOOOOOOOOOOOOoOoOoO 
ee ee a ee ed a ce ed ae ed ed ed aed ed aed ed ed ed od dd od od od od dot SOHO OO OOOOOCOOCOOCOOCOOOCOOCOOOCOO 


O—QOQNVONONVWNTWTOWT & MROOW LNW NWT OOO LVM LNUITF MVUONIW™ O— On —r 


9 
: 
! 
5 
; 
; 


~$e9-1984 01:05:49 


16- 


so: to 


aw 


DLSKSUMSMASTER: PEDF -SRCJEDFSHOW.PAS: 1°782) °° 
) ss 0753 
CK. ; 0755 
; 0757, 

| 


ITE_STRING 
15$: ite 


C_TYPE,17$ 
L OO _QUALIFIER : 
17$: te ),RO ; 


v 
= 
nw 
5 
NE BVDWD BWVDWVWBWSBTV2ZBOH BF BS 2zV2Z—— BS— 


BL DEST 
CALLS #3,PASS$WRITE_CHAR 
PUSHAB 39(R2) 

CALLS nO »NUM_LEN 


CALLS Eat,p reer INTEGER 
19$: covet f ; 0782 


30iRe 


R 
SEC_TYPE,24$ 
$5 ond) ,20$ : 0784 
ACA 0786 


"3 
BBC RO 
#0 


E 

CALLS #3 ,PASSURITE_STRING 

22$:  PUSHAB C.ACB : 0790 
PU a3 


PF ENO FWD NODUMIM NM ND UW DNF ODWOS OVO AWHOAOMN > ITU 

v 
Cc 
a 
=x 
>. 

So 
N 
“N 
N 


CALLS #3 PASSURIT STRING 
tro) meee : 0792 

CMPB (R2) ,#89 
3eR2) #32 ; 0800 


D 
; BLSS $ 
CMPZV #7 ,WOXTE, 39(R2) 
c BGEQ § 

H 28$: PUSHL #1 > 0806 
A PUSHL 4&9 


mez 


EDF SHOW 
v04-000 Generated Code 


000000006 
27 


4G 


— 
Geach 
eon 


“19 74 -11 Pascal V2.4-277 P 
~$e0 71382 94:98:5 KSVMSMASTER FEGF -SRCJEDF SHOW.PAS;1°952) 
00000000G_ EF 
00000000G_ EF 


44 
000000006 


ST 
00000000G_ EF SWRITE_INTEGER 


v 

c 

no 

x= 

- 
OWR DRT 


FFFFF660 
000000006 


298: PUSHAB ACC ; 0810 
pues fh. vest 
00000000G_ EF CALLS H8PRSSWRITE_STRING 
27 PUSHL  39(R2) 
000000006 i, DEST 
00000000G_ EF CALLS #3,PAS$WRITE_CHAR 
| 
| 
| 
| 


000000006 
000000006 + 


DEST 
PASSWRITE_CHAR 
1 1E R2) ,#3 


w 

pay 

wn 
wna 
ow 


< 
MORRO) 3 2 


COSI IPAOAMMIMNMIN ES & EWN MQOOCOMN TN HNMMMMMNOOVOCOOWWWIWr>> 
We > NOP OM OI DOWO OW FS NOP OOO DWMD OUIMOD £9 NHLVIVwo@ &NW or “oor 
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OM SNOF OMDOF OF COOP OMMOOM PSP OOMOMODOMPuNNorom 


SHOW QUALIFIER ; 082 
R2) #256 ; 082 


R2),C.ACD,34$ 
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00000100 8F 
OOVFFFFF611 EF 


~m 
Ww 
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~ 
LA 
OPIS ion + 


000000006 
27 


00000000G_ EF 
00000000G_ EF 


27 2) 
000000006 DEST 
00000000G_ EF A 


01 03 23 


L 
( 
l 
gPASSURITE_INTEGER 
(R2) .#3.1 ; 0836 
$ 
$ 
A 


C§UNNDOO ST NONOVTIM 9 MW" ONOVTIT NOVI "OT O- MOTT "ONO 
OH NOOO WOO MD WW MOCO "OOOO 7-O "OCA "ws" 


SOOGOCSCOCSGOOSOSCSOOSOSOSOOOSSOSOOSOSOSOOSOOSOOSOOOSOSOOOOSOOOOSOOSOOSOOOOOOOOOOOSOO 


: 348: CASEL | 


: OMOW FV WTO MONOOWNIWT NWN SW MOW MNO —TWw™ 
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BR 
FFFFFSEF F 35$: PUSHAB 
000000006 08 


34 


CE : 0842 


T 
00000000G_ EF EPASSWALTE_STRING 


000000006 _ EF 


v 
Cc 
nn 
& 
WAND BN BOWMAN SS BMAD BW BS BIAS Se 


ear WOUND OO OWS 
= 


38 & 
000000006 
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f iD 
00000000G_ EF ; a8, PASSURITE_ INTEGER 

¢ 

F 


Nee ee epee pelo lololololoflololololololololelolelolelolelolololololojloloil oe) 


RNOVCITNOOIT"ONOOOW 
oroCoea"oomI"w"oO™"— 


ONVMINO 
v= 
Cc», 
or 
=r 
rw 


ooo 


000000006 Fe 


00000000G_ EF CALLS POLES re cuan 


etree 


D2 
EDF SHOW 16-Sep-1984 VAX-11 Pascal V2.4-277 Pa 50. 
v04=000 Generated Code g-§ Sep aarti 9}: 93: $0 STK SUNSAASTER FEOF SR CJEDFSHOW.PASS1 $2) | 
38 3=6A2 «OF 002A4 PUSHAB 56(R2) 
000000006 EF 91 FB O02A7 CALLS #1,NUM_LEN 
: DD 002A PUSHL RO | 
38 A BD B PUSHL 36(R2) 
000000006 EF 9F 002B PUSHAB FL DEST | 
000000006 EF 3 FB 002B CALLS PASSWRITE_INTEGER 
1 DD O02¢ PUSHL #1 
C BD ¢ PUSHL #44 | 
000000006 ai F 0004 PUSHAB FDL L_DEST 
000000006 EF 3 £B OO8CA CALLS #3, PASSWRITE_CHAR | 
3¢ = A2-~—sO9F:s «00201 PUSHAB 60(R2) 
000000006 EF QT FB 002D4 CALLS #1,NUM_LEN 
0 0D 00208 PUSHL R 
3c 6 A2—Ss«éD «00200 PUSHL  60(R2) 
000000006 FF 9F 002E0 PUSHAB FDL DEST 
000000006 EF 3 FB 00266 CALLS #3,PASSWRITE_INTEGER 
01 DD 002ED PUSHL #1 
9 DD OO2EF PUSHL 
000000006 FF OF OO2F1 PUSHAB FDL DEST 
000000006 EF 3 FB O02F7 CALLS #3,PAS$WRITE_CHAR 
Odv 11 00 FE BRB 4 
11 A2  9F 00300 36$:  PUSHAB. 17(R2) : 0853 
OD4c CF 01 =FB 00305 CALLS #1,CHECK_QUOTES 
11 A2~ BS 0308 TSTw  17¢R2) : 0855 
00v 15 00308 LEQ 46s 42S 
01 DD 00 0D PUSHL #1 : 0857 
09 OD 0030F PUSHL 4&9 
000000006 EF 9F 00311 PUSHAB FDL_DEST 
000000006 EF 03 =FB 00 17 CALLS #3,PASSWRITE_CHAR 
E 11 A2 3C 00 1 MOVZ2WL 17(R2),-(SP) 
00 dD 003 PUSHL # 
15 B2 9F 00324 PUSHAB @21(R2) 
QOOOOOFF  8F pp 0327 PUSHL #255 
000000006 EF 9F 00 p PUSHAB EDL DEST 
000000006 _ EF 05 FB 0 CALLS #5,PASS$WRITE_STRING 
0Ov 1 0 A i BRB 42$ 
63 BF 1E a2 1 6 ; 42$: cMPB 30(R2) .#99 : 0876 
000000006 EF 2 A2 6 0343 MOVL 44(R2), TEMP_INT2 : 0880 
00000006 cr 9F 00348 PUSHAB TEMP INT : 0881 
Fe AD NOEOOFE F pO 00 21 OVL  #17694975,-1 
F8 AD 000000006 EF 9€ 00359 MOVAB TEMP. STRING2 s PRCEP) 
eA SSSR RUBE ei | 
| 
EC AD 01060008 BF D0 00367 MOVL alate =20(FP) 
FO «OAD FFFFFGES «6 EF = soO9E: «OO 36F MOVAB 
EC AD OF 7 PUSHAB “SOC 
000000006 EF 04 £8 7A CALLS # SVSSFAOL 
E FC AD HY 1 cV TUL R RETLEN, -(SP) ; 0882, 
90000006 EF oF ; PUSHAB TEMP _STRING255 
ioc FSP RRR SN Fey 
000000096 cf 5 F 9 CALLS #3 PASSURITE_STRING 
6 F 1€ A2 9 AQ 458:  CMPB 30(R2),#101 : 0889 
0 1 A BEQL +3 
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73:98: 


-1984 
-1984 


VAX=-11 Pas 
DISKSVMSMA 


(R2) 
SHOW_PROT 
ACH 


BL DEST 
#3 -PASSWRITE_STRING 
$6(n2) 
#2,SHOW_PROT 
¢ Act 
rot DEST 
: »PASSWRITE_STRING 
48(R2) 
#2,SHOW_PROT 
ACJ 
FDL DEST 
#3, PASSWRITE_STRING 
$9(R2) 
#2,SHOW_PROT 
#1 
FpL DEST 
#3, PASSWRITE_CHAR 
9(R2) 
"9 
FpL DEST 
#3, PASSWRITE_CHAR 
9(R2) ,-(SP) 
w55 
AS DEST 
#5 ,PASSWRITE_STRING 


#1 ,PASSWRITELN2 
He CURRENT ,RO 
(RO) 


#0) (SP) 
a gin) 


A DEST 
#5 ,PASSWRITE_STRING 


Set aVfibrce SRCIJEDF SHOW.PAS; 1 £79829" ”| 


: 0893 


3 0894 


; 0895 


3; 0896 


; 0897 


; 0898 


; 0899 


; 0900 


; 0901 


; 0908 
; 0910 


EDF SHOW 
042000 Generated Code 
000000006 
00000000G_ EF 
000000006 
03 00000000G EF 


50 eonocenes 


50 000000006 i 000000006 


4 
444443 
vanes 
19 A 9 
26 000000006 
50 000000006 
50 01 
1A AO 1A 
000000006 
00000002 
00000000G_ EF 
50 000000006 fF 
0 000000006 
_ boo00002" 
000000 


000000006 


; Routine Size: 1370 bytes, 


se 
§ 8 
00v 5 
7E 
000000666 
000000006 01 
00v 
000000006 
000000006 
: 02 
00v 
45 
F 900000006 
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Routine Base: SCODE + 


ieee 1:05:48 


PUSHAB 
CALLS 
BRB” 
$73: 
6$: 


61$: 


63$: 


DMSO-D BF FW" OOON) "OOO UW OF —_— 


9 
F 
1 
H 
D 
C 
C 
Dd 
1 
0 
1 
D 
) 
) 
Dd 
1 
) 
Dd 
F 
C 
) 
1 
Dd 
Dd 
F 
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SOOSSSCCOSOCOCOOOCOCOCOOOSOOOOOOOOOOOSOOOOOO 
Fel tak ed nd ed ed ded tea ak a ed 
nwmMmrm pA Amon 5s 4 6 | 

wo FPNOCUIFNNS 


66$: 


SHOW_PROT: 


4$: MOVAB 


AAR 2OOMWABARIOOMWFRARAOO 


MOOF OMDOMFOMOOUW® 


PUSHAB 


VAX-11 Pascal WA fhe 
DISKSVMSMASTER:LEDF. Cac IEDE SHOW. PAS;1 


FDL» DEST 
WRITELN2 

hgh 

SHOWN 
T_1S_TERMINAL,.+3 


URRENT ,RO 


SHOWN,LINES_PER_PAGE ,RO 


URRENT,R 
URRENT ,R 
j, 


NES 
DES 
¢ 
) 
S_ 
0~ 
4 
c 
¢ 
).R 
0),25(R2) 
= CURRENT R 
CURRENT 

0) 

Ros" 6(RO) 
ES_SHOWN 

CLEAR 

LINES PER_PAGE,RO 
INES. Own, RO 

PINES. ae 


- CLEAR 


ts 


PUSHL #1 


} 
2 
EDF SHOW IB-sep VAX-11 Pascal V2. 53. 
TO 000 Generated Code sat 7 9: 9: $0 DISKSVMSMASTER: esteet? SRCIEDF SHOW.PAS; 1 1°92) | 
000000006 EF 03 OF 9 CALLS #3,PASSWRITE_CHAR 
03 act 9 6$: MOVAB (Pie ELD_OFFSET),R12 : 0677) 
00v By B C R12,PROTECTION, 8$ 
1 OD F PUSHL @# : 0679 | 
7E 44 BF OA l MOVZBL Sle ceane 
000000006 Fr F PUSHAB pL 
000000006 EF 3 FB 8 CALLS #3,PASSWRITE_CHAR 
04 8$: RET 3 0681 
; Routine Size: 115 bytes, Routine Base: SCODE + O1A1F 
GENERATE_FOL: : 1041 
0004 0000 “WORD “M<R2> 
000000006 gf 000000006 FF 09 00 HOVE sat HEAD gBEF CURRENT ; 1052 
000000006 EF D4 o10 CLRL Ev PRL ; 1062 
000000006 cf D5 0001 TSTL ber eCORRENT + 106 
Ov 1 1c BEQL =«sa31'1$ 
50 000000006 EF D 1€ 28: MOVL  DEF_CURRENT,RO 3 1082 
a TSTL PREV_PRINUM + 1086 
ov 18 000 BGEG & 
52 19 Aad 90 00029 MOVB 5(RO) ,PREV_PRIMARY : 1093 
¢ 1A AO 00 00020 MOVL 6(RO) .PREV~PRINUM + 1094 
Ov 11 00031 BRB 
1A AO C 01 99 3 S$: CMPL § PREV_PRINUM, 26(RO) : 1105 
O6v 12 00 BNEQ 
19 Ad 4 0039 CMPB  =—s- PREV_PRIMARY,25(RO) 
00v 13 00030 BEQL 
52 19 Ad 90 O05 7$: MOVB g3(R0), »PREV_PRIMARY 31111 
5c 1A AO D0 00 ; MOVL 6(RO) ,PREV~PRINUM ; 111¢ 
000000006 cf 9F 0004 PUSHAB FDL_DEST : 111 
000000006 EF 1 FB 0004D CALLS #1 ;PASSURITELNZ 
000000006 EF 6 054 INCL _— LINES SHOWN : 1118 
01 F O8F OA 9$: PUSHAB 5 : 1126 
14C5—sCF 1 FB 0005 CALLS #1,SHOW_CURRENT 
000000006 _ EF 0 FB 0006 CALLS #0, INCRE “CURRENT ; 1127 
000000006 EF p ttt ist DEF _¢ ENT 
04 0071 11$: RET : 1133 
3; Routine Size: 114 bytes, Routine Base: SCODE + 01A92 
VIEW_DEF: : 1183 
.WORD “M<> 
00000003 = &F PUSHAL #3 : 1190 
990000006 EF 1 CALLS #1,CLEAR 
00G EF 1 MOVE #1,DEST_IS_TERMINAL : 1196 
OOv AF PUSHAB 1 > 1198 
19 PUSHL #25 
000000006: EF PUSHAB FDL_DEST 
000000006: EF 3 CALLS #3, PASSCLOSE2 
000000F C F 8 1$: BUSHL ’ $2 : 1199 
4 PUSHL #4 
000000006 EF PUSHAB $Y SSOUTPUT _NAME 
| 


a SR ea Sisk ho 7 
| 


042000 Generated Code Mgr geen 1 8Be 94:98:08 NaS cbdmGaaSSeRvFecr saczeprsnow.pas:1°7S2) >” 


000000006 EF 9F SHAB FDL_DEST 
000000006 55 FB ; fh L$ Wo PRE SOPENZ 
000000006 EF 9F PUSHAB FDL DEST : 1200 
000000096 EF Fe F CALLS #1, PASSREWRITE2 
A CF 0 FB 26 CACLS #0,GENERATE_FDL : 1205 
000000006 EF 9F PUSHAB FDL DEST + 1210 
990000006 EF i F CALLS #1,PASS$SCLOSE2 
00v G EF ‘2 e BBS #0,CONTROL _ZEE_TYPED,4$ : 1215 
000000006 4a p f si LINES _SHOUR 
000000006 EF  9F 0007 PUSHAB PAS$FV_OUTPUT : 1219 
000000006 EF 1 €B 43 CALLS #1,PASSWRITELN2 
00000002 8F ODF PUSHAL # : 1220 
000000006 _ EF 1 FB 8 CALLS #1,CLEAR 
04 00 4$: RET : 1226 
3; Routine Size: 147 bytes, Routine Base: SCODE + 01804 
~ oie oos¢ 9909 aBNTRY SHOW PRIMARY SECTION, *M<R2,R3,R4,R5> : 1276 
edt en vad en w0090s er zs Sooe moves 40 94 (R12) TEST : 1286 
000000006 _ EF titties F 0 O9i4 nOvL DEF HEAD DEF CURRENT 3 1291 
00 BF OF 00 1 1$: PUSHAB #07 F 1599 
CO AD 9F 00024 PUSHAB TEST 
000000006 EF 5 Fe 2. 7 CALLS #5. CURRENT £0_TEST 
01 «BF FP 0 f PUSHAB #1. : 1303 
14C5.—sCF ss. 90 4 CALLS #1,SHOW CURRENT 
5C a 70 90 9 nove #1 ,AT_PRIMARY : 1304 
00v C €9 99 E 3$: BLBC  AT_PRIMARY,6$ 3 1312 
000000006 ai D4 00041 CLRL DEF CURRENT + 1314 
000000006 0 FB 00047 6$: CALLS #0,INCR CURRENT : 1321 
000000006 ef 08 OO4E istL DEF CURRENT 
000000006 a 9F 0056 PUSHAB FDL_DEST : 1325 
000000006 _ EF 1 €B 05¢ CALLS #1, PASS$WRITELN2 
04 0006 RET : 1327 
3; Routine Size: 100 bytes, Routine Base: SCODE + 01897 
.ENTRY SHOW_ALL PRIMARIES, “M<> : 1379 
G EF 0009 CLAL LINES SHOWN 3 1356 
000000006 ef 090000006 EF OD MOVL § DEF_HEAD, DEF CURRENT ; 1391 
0 000000006: EF p 1$: MOVL DEF ~CURRENT,R : 1399 
60 1A TSTB =—s_- (ROT 
50 000000006 EF ; if BOVE +i URRENT,RO 
39 9 AQ $ ; cnPB 25(RO) 89 ‘ 
01 BF OF 8 PUSHAB #1 : 1405 
oes CF 1 FB ; CALLS #1,SHOW_CURRENT 
000000006 EF 0 F 4$: CALLS #0. INCR7 CURRENT > 1410 
000000006 EF 08 A TSTL DEF CURRENT 
D1 0 BNEQ 


te 


R 
EDFS ip ‘ 4 VAX-11 Pascal V2.4-277 Pp 5 
viet Generated Code “$ 338 1388 9}: 3 $0 DISKSV nga see Veto T cJEDFSHow.PAS:1°¢82)° 

000000006 EF 9F PUSHAB FDL_DEST 3 1414 : 
000000006 EF 5 FB aB948 CALLS WI CPASSURITELN2 ; ; 
04 F : 1416 ; 
; Routine Size: 80 bytes, Routine Base: SCODE + O1BFB ; 
0004 .ENTRY SHOW_CUR_PRI_SEC,“M<R2> : 1468 : 
5E 04 8 : SUBL2 4#4,SP : 
¢ 04 BC MOVE @4(R12),PLUS_VALUE ; 
Bo000K008 EF pO SoooE move CINE. SHOW 1083 | 
i 000000006 iy : ROVE CROW SAVE SOOUECT. cs ; 1484 
60 3 CLRB = (ROY , : 
FC AD a. 3 30 0 : HOVE PLUS VALUE. 74 (FP) + 1485 : 
145 cf 01 FB 00029 CALLS #1,SHOW_CURRENT : 
30 000000006 EF : HOVE Del CURRENT. RO ; 1487 ; 
00v 1 9 BEQL : 
50 000000006 EF 00 00 MOVL DEF CURRENT,RO 3 1491 ; 
60 1 9000 MOVB , TRO) ; 
FC AD C 9000 MOVB = PLUS_ VALUE, -4(FP) : 1492 : 
FC AD 9F 00049 PUSH 4 (EB) : 
14¢5 cr 01 FB 9004. CALLS SHOW, CURRENT ; 
0 000000006 EE p0 0051 2$: MOVL orf oC : 1496 ; 
60 2 0 00058 MOVB Save” Cec “TYPE, (RO) 3 
04 00058 RET : 1498 ; 


; Routine Size: 92 bytes, Routine Base: SCODE + 01(4B 
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